exportPath("/projects/BriarData/Handheld-6.1.0/CD/20110119154623");
exportPath("/projects/BriarData/Handheld-6.1.0/GC/3492662-20110120093913");
exportPath("/projects/BriarData/Handheld-6.1.0/JT/3491292");

sub exportPath {
    my $path = shift;
    my $filename = $path;
    $filename =~ s/.*\/([^\/]+\/[^\/]+\/[^\/]+)/\1/;
    $filename =~ s/\//_/g;
    $filename =~ s/$/.xml/;
    
    print "ectool export $filename --path $path\n";
}
